Animation der 7 Tage Inzidenz der letzten 7 Tage

Animation der 7 Tage Inzidenz der letzten 14 Tage

Animation der 7 Tage Inzidenz der letzten 30 Tage

Animation der Sieben Tage Inzidenz seit Beginn der Epidemie

The national data source is the civil protection github repository.Date : 2022-10-09
Created with: R by J. Mayr

Animation der 14 Tage Inzidenz der letzten 7 Tage

Animation der 14 Tage Inzidenz der letzten 14 Tage

Animation der 14 Tage Inzidenz der letzten 30 Tage

Animation der 14 Tage Inzidenz ein Monat um das Testwochenende

```{r,warning=F,message=F, echo=FALSE,out.width=“100%”}

base <- pcmdpcst1120 %>%

plot_ly(x = ~incidence, y = ~increment,colors = “Paired”, color = ~denominazione_regione.x,text = ~paste(denominazione_regione.x,” “,round(incidence,0)), hoverinfo =”text”) %>%

layout(xaxis = list(type = “linear”,autorange = “true”)

)

base %>%

add_markers( frame = ~data, ids = ~denominazione_regione.x) %>%

animation_opts(1000,easing =“linear-in”, redraw = T) %>%

animation_button(

x = 1, xanchor = “right”, y = 0, yanchor = “bottom”

) %>%

animation_slider(

currentvalue = list(prefix = “Datum”, font = list(color=“red”))

)

Animation der 14 Tage Inzidenz seit Beginn der Epidemie